renamed perlprogram
show values