#! /usr/bin/perl -w
use strict;
print "Enter 5 numbers: \n";
my $i=0;
my @arr1=();
while (($i<=4) and (<>)) {
	@arr1 = (@arr1,$_);
	$i++;
}

my $m;
foreach $m (@arr1)
{
 print "$m \n";
}

##</code><code>##

use of uninitialized value in concatenation or string at ...path...line 17,<> line 5.