my ($first, $last, $id) = split '%';
print "$last $first\n" if substr($id, 0, 1) eq 'A';