#!/usr/bin/perl -w

# kokeile tiedoston lukua omasta kahvasta ja hashin käyttöä
# hauskaa myös: terssi$ perl -e 'while(<>){print "$ARGV $. $_";}' *

use strict;

my ($k, $v, %h, @t);
open (X, "lue_hash.txt") or die "$0: ei auennut 'lue_hash.txt': $!\n";

# hashiin tiedostosta
while(<X>)
{
    chomp;
    ($k, $v) = split;
    $h{$k} = $v;
}

# lisää, listamuodossa
@h{"ruuveja", "nauloja", "prikkoja"} = (30, 25, 19);

print "[", join(", ", keys %h), "\t", join ", ", values %h;
while (($k, $v) = each %h)
{
    print "\n $k \t $v";
}

# tuhoa muutama
delete $h{"nauloja"};
delete $h{"keittoa"};
delete $h{"puuroa"};
print "\n[", join(", ", keys %h), "]\n";

# tyhjää
%h = ();
print "[", join(", ", keys %h), "]\n";