Create hash from file

has_from_file.pl

#!/usr/bin/perl
use strict;
use warnings;

sub read_line {
    our %hash;
    my @list = split(" ", shift);

    foreach my $word (@list) {
        $hash{$word}++;
    }
}

sub read_file {
    my $file = shift;
    open (FILE, $file) or die "Cannot open file: '$file' $!\n";

    while (my $line = <FILE>) {
        read_line $line;
    }
}

sub print_hash {
    our %hash;
    my @list = %hash;

    print "@list\n";
}

sub print_keys {
    our %hash;
    my @list = keys %hash;

    print "@list\n";
}

sub print_values {
    our %hash;
    my @list = values %hash;

    print "@list\n";
}

sub count_keys {
    our %hash;
    my @list = keys %hash;

    print scalar @list . "\n";
}

sub count_values {
    our %hash;
    my @list = values %hash;

    print scalar @list . "\n";
}

read_file "disturbed_prayer_lyrics.txt";
print_hash;