print("\@f has ", scalar(@f), " elements:\n");
print("\$f[$_] = $f[$_]\n") for (0..$#f);