#! /usr/bin/perl

use strict;
use warnings;

my %hash = ();

while(my $line = <DATA>){
  my @array = split(/\s+/,$line);
  $hash{$array[1]} = [@array[0,2,3]];# key: kino, value: anonymes array mit film, datum, uhrzeit
}


my @sorted_keys = sort{$hash{$a}->[1] cmp $hash{$b}->[1] 
                       || $hash{$a}->[2] cmp $hash{$b}->[2]}keys(%hash);

print $hash{$_}->[1]," ",$hash{$_}->[2]," ",$_," ",$hash{$_}->[0],"\n" for(@sorted_keys);



_ _DATA_ _
KingArthur Kino5 23.09.04 15:55
Titanic Kino6  20.09.04 20:00
Traumschiff Kino7 20.09.04 21:00