for (@file){
        my @a = $_ if /$ARGV[0]/;
        $_ = /(\d+)\s+(.+)/;
        print (int $1/1024)." Mb";
        print $1;
}