use warnings;
use strict;

my @where = (
   [ Gary     => "Dallas"  ],
   [ Lucy     => "Exeter"  ],
   [ Ian      => "Reading" ],
   [ Samantha => "Oregon"  ],
);

for (@where) {
   print "$_->[0] lives in $_->[1]\n";
}
[download]