#!/usr/bin/perl

use warnings;
use strict;

my %hash = (
  one => 1,
  two => 2,
);

for my $key (keys %hash) {
  if ($hash{$key} > 1 ){
    print "$key - $hash{$key}\n";
  }
}

print '-' x 20, "\n";

# or, using the magic variable $_

for (keys %hash) {
  if ($hash{$_} > 1 ){
    print "$_ - $hash{$_}\n";
  }
}

__DATA__
---------- Capture Output ----------
> "C:\Perl\bin\perl.exe" _new.pl
two - 2
--------------------
two - 2

> Terminated with exit code 0.