Select Code to Download

           my @tokens = split;
    my $header = $tokens[0];

    my $header = ( split )[ 0 ];

    my ($n, @list);
    ($n, @list) = @_;

    my ( $n, @list ) = @_;

    my (@list);
    foreach $_ (@list) {

    foreach $_ (@list) {
        ...
    my @list = @tokens[0,3,4,7,8];
        ...
    push (@list, $_);

    my @tokens = split; 
            my $header = $tokens[0];
    my @records = @tokens [3,4,5,6,10,11];

    my ( $header, @records ) = ( split )[ 0, 3, 4, 5, 6, 10, 11 ];

my $y = $tokens[0];
my $m = $tokens[1];
my $d = $tokens[2];
my $h = $tokens[3];

my ( $y, $m, $d, $h ) = @tokens;