#!/usr/bin/perl -w

use warnings;

print"hi\n";
$x1 ="new_value";
$x2 ="new1";
system("perl","subscript.pl",$x1,$x2);

print"end";