#unrelated code here
my @data;
for (sort keys %ABC)
{
   push(@data, $ABC{$_});
}
return @data;