print sort { $f[0]->($a, $b) } @list;