#!/usr/bin/perl -w

for (1 .. 10)
{
  $numbers{$_} = $_ . "\n";
}

for (1 .. 10)
{
  print $numbers{$_};
}