try this: change  print <$foo>; to  print $_;