#!/usr/bin/perl

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

${$_}=$variables{$_} for keys %variables;

$\="\n";
$,=" : ";

print $_, $$_ for keys %variables;