#!/usr/bin/perl -w

use strict;

my @array = qw(one two three);

one();

sub one { 
  foreach (@array) {
    two($_);
  }
}

sub two {
  print "$_[0]\n";
}