use strict;
use warnings;

my $cgi = { a => 1, b => 2 };
my @keys = keys %$cgi;
my @vals = delete @$cgi{ @keys };
print "@vals\n";