my @array = (1,2,3,4,5);
print rev_array @array;