#!/usr/bin/perl
use strict;

sub display {
    my $ref01 = shift;

    foreach my $key (sort keys %{$ref01}) {
        print "$key: $ref01->{$key}[0] $ref01->{$key}[1] $ref01->{$key}[2]\n";
    }
}

my %hash1;

$hash1{'fruit'} = ['apple', 'orange', 'plum'];
$hash1{'vegetable'} = ['leek', 'carrot', 'peas'];

display (\%hash1);

foreach my $j (sort keys %hash1) {
    print "$j: $hash1{$j}[0] $hash1{$j}[1] $hash1{$j}[2]\n";
}