Try, my $word = shift; I doubt if $_ is defined at that point, and I figure you want to get it from @ARGV.

You should also test the success of get.