sub bar {
         my $str = "foo";
         return scalar reverse $str;
 }
 
 print chop bar();
 
captvanhalen: $ perl foo
 Can't modify non-lvalue subroutine call in chop at foo line 6, near ");"
 Execution of foo aborted due to compilation errors.