You almost had it. Just pass a reference to the hash to your function with \%hash. You can access the elements without dereferencing with the -> operator.
#!/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";
}