@code = ('shift($a, $b);', 'print @;');

foreach $line(@code){
 $a=$line;
 for($a=~ m/shift\((.*?)\)/){
        $a=~ s/shift\(//;
	$a=~s/\)\;//;
	@a=split(/,/ ,$a);
	@a  = reverse(@a);
	$line=~ s/shift\((.*?)\)/pop(@a)/;
 }

}
print @code, "\n";