#!/usr/bin/perl

use strict;

print join("|",@ARGV)."\n";

my @V=map($ENV{$_},@ARGV);
foreach my $i (@V) {
	print $i."\n";
}
