Select Code to Download

#!/usr/bin/perl
use strict;
...
    }
}
print "@{ $data{$_} } =>\n" for keys %data;

__DATA__
Victor Mcduffie
...
# Mine
V Mcn
V Mcd