use strict;
use warnings;

my @array = qw(0120 123 XXX);
for my $foo(@array){
    print "$foo\n";
}

print "\n";

my $tel = join '-' , @array;
print "$tel\n";

my $path = "/usr/bin/env perl";
my @element = split /\// , $path;
for my $bar(@element){
    print "$bar\n";
}