お分かり頂けたであろうか #Perl

# 機種名にスペースを入れるケースがあるのでスペースなしで昇順にする
# パチンコの先頭にある文字を比較しない
for (@ record) {
$_->{cmp_name} = $_->{name};
$_->{cmp_name} =~ s/ //g;
$_->{cmp_name} =~ s/^e//;
$_->{cmp_name} =~ s/^PFA//;
$_->{cmp_name} =~ s/^PF//;
$_->{cmp_name} =~ s/^PA//;
$_->{cmp_name} =~ s/^P//;
$_->{cmp_name} =~ s/^\.//;
}
@ record = sort {$a->{cmp_name} cmp $b->{cmp_name}} @ record;