use strict;

my $fooberry = " hello ";

die "arg arg arg" unless @ARGV;

{
   {
      $fooberry = "arg"  if $ARGV[0] =~ /arg/;
   }
}

print $fooberry;