sub DeleteLast($)
{
 pop @{$_[0]};
};