use strict;
use warnings;

package three;

my @values = qw(three three three);

sub show_values {
  print "@values\n";
}

package two;

my @values = qw(two two two);

sub show_values {
  print "@values\n";
}

package one;

my @values = qw(one one one);

sub show_values {
  print "@values\n";
}

package main;

three::show_values;
two::show_values;
one::show_values;