my ($value, $from, $to, $rate, %rates);
%rates = (
        pounds  => 1,
        dollars => 1.6,
);