my @lines = `free`;  
for (@lines) {
    push @words, [ split /\s+/, $_ ];
}
print $words[0]->[3],"\n";