Select Code to Download

my %master = (
 Alex => [ [3,44], [124,175] ],
 Barry => [ [2,44] ],
 # more data here #
);

my $some_name = 'Alex';
foreach my $range ( @{$master{$some_name}} ){
  my ($start, $end) = @$range;
  print "$start, $end\n";
}