от чего она и как избавиться?
$tema{"Afisha"} = {
"A2" => {
"Ploter" => ["16", "3", "1шт", "10шт", "100шт" ],
"Ofset" => ["17", "3", "500шт", "1000шт", "5000шт" ]
} ,
"A3" => {
"Ploter" => ["18"],
"Printer" => ["19"],
"Ofset" => ["20"]
}
};
$tema{"Vizitki"} = {
"Shelkograf" => ["13"],
"Printer" => ["14"],
"Ofset" => ["15"]
};
foreach (sort {$tema{$a} <=> $tema{$b}} keys %tema) {
if ($tema{$_}[0] =~ /^(\\d+)$/) { print "$tema{$_} - ne"; }
else { print "$tema{$_} - ok"}
}