List count in Perl

Method 1:
Program Code:
#! /Perl/bin/perl

print ("Enter the start number:\n");
$start = <STDIN>;
chop ($start);
print ("Enter the end number:\n");
$end = <STDIN>;
chop ($end);
@list=($start..$end);
$count=0;
print("Here is the list \n");
while ($list[$count] != 0 || $list[$count-1] == -1 || $list[$count+1] == 1) {
print ("$list[$count]\n");
$count++;

}
Output:

Method 2:
Program Code:
#! /Perl/bin/perl

print ("Enter the start number:\n");
$start = <STDIN>;
chop ($start);
print ("Enter the end number:\n");
$end = <STDIN>;
chop ($end);
@list=($start..$end);
$len=1;
$count=@list;
print("Elements of list are\n");
while($len<=$count){
print("$list[$len-1]\n");
$len++;

}
Output: