my $x = 40;

print int( ( $x % 50 ) / 10 );