Help for this page
use strict; use warnings; ... for my $k (keys %data){ print "$k\n"; }
4060A 4099A