#! perl -slw
use strict;

sub clean {
    my( $dirty ) = @_;
    s[\s*(\S+)\s*][$1] for @$dirty;
}

sub double {
	my( $data ) = @_;
	$_ *= 2 for @$data;
}

open FILE, '<', 'data\1millionlines.dat' or die $!;
my @data = <FILE>;
clean( \@data );
double( \@data );
print for @data;
printf 'Check mem.'; <STDIN>;