#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;

printf "Perl version is v%vd\n", $^V;

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

my %results = delete @hash{qw(one two)};
print Dumper(\%results);