яндексова задачка

взята отсюда.

На сервере имеется файл /tmp/money. Каждая строка файла – последовательность символов без пробелов, состоящая из наименования валюты и номинала. Например, rubl100, bucks20, frank1.

Нужно дописать perl-скрипт, чтобы он вывел все строки из файла в порядке возрастания стоимости соответствующей банкноты.

#!/usr/bin/perl -w

use strict;

# Курсы валют (предполагается, что все курсы,
#  которые могут встретиться в файле, в этом хэше есть)
my $roe = {
  frunk => 1,
  tugrik => 100,
  bobrik => 10,
};

( мое решение )