total    used  free shared  buffers  cached
Mem:  189656  180144  9512      0     6976   81012

##</code><code>##

   my @lines = `free`; # run command, store output
   chomp (@lines);     # remove all newlines.

##</code><code>##

my @field_names = split (' ', $lines[0]); # split 1st line

##</code><code>##

my @mem_sizes = ( $lines[1] =~ m/(\d+)/g );

##</code><code>##

my %free; # a hash, where the fields will get stored

##</code><code>##

@free { @field_names } = @mem_sizes;

##</code><code>##

print("Cached: ", $free{'cached'}, "\n");

##</code><code>##

@free { @field_names } = @mem_sizes;