Select Code to Download

my %hash = (foo => bar);
my @arr = (1);
...
print ref $var;
print ref $var1;
print ref $var2;

HASH
ARRAY

my $num = 15;
if ($num =~ /^[+-]?\d+$/) {
  print "Dealing with an integer\n";
}