use warnings;
use strict;
use Perl6::Form;

my %name_n_price_tag;

print form "#\tName\tPrice", 
           "#\t------	-------";

while (<DATA>) {
    chomp;
    my ( $name, $price ) = split /:\s/, $_, 2;
    $name_n_price_tag{$name} = $price;
}

print form
  "\t{|||||}\t{|||||}", $_, $name_n_price_tag{$_}, $/
  for sort keys %name_n_price_tag;

__DATA__
large: 90.12
small: 12.34
medium: 57.78