$_ = pop @arr;
print "Value popped is $_\n";