my @arr = do {local *sortfunc = $sortfunc; sort sortfunc @$foo};