#!/usr/bin/perl -w
use strict;
my $i = 4;
my @nums = ( 1 .. 9 );
push (@nums, -12);
for (@nums)
{
   print if /$i/;
}

##</code><code>##

#!/usr/bin/perl -w
use strict;
my $i = 4;
for ( 1 .. 9, -12 )
{
    print if /$i/;
}