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

##</code><code>##

	my $header = ( split )[ 0 ];

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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