#!/usr/bin/perl 

use strict;
use warnings;
use Data::Dumper::Concise;

my %hash = (1 => 'A', 2 => 'B', 3 => 'C');
print "The first and second keys: hash slice ==> \n", 
Dumper( @hash{qw(1 2)} );
print "Just the third key: \n", Dumper( $hash{3} );