#Edited: added those examples


use feature 'say';

our $x = "Hello";
our @y = "Hi";
our $z = ["Bonjour"];
while (<DATA>)
{
  chomp;
  print "$_ \t";
  no warnings;
  eval "$_; 1" or say $@ =~ tr/\n/ /r;
}
__DATA__
say "$x";
say "$ x";
say "@y";
say "@ y";
say  @ y;
say $#y;
say $# y;
say $ #y;
say @ $z;
say @$ z;