$ perl -lw
use strict;
my $aw = 'rimbel';

if ( int($aw) == 1 ) {
  print "aha";
}

Argument "rimbel" isn't numeric in int at - line 4.