perl for

        
            
        
     #!/usr/bin/perl
use warnings;
use strict;

my @c = (1..6);
for(my $i = 0; $i <= $#c; $i++){
	print("$c[$i] \n");
}

for ($i=0; $i<#whatever#; $i++){
	#your code
}