С perl 5.10.0 и выше:
perl -E'say 0.37**$_ for 0..8'
В старых версиях у вас нет say
и -E, но это работает:
perl -le'print 0.37**$_ for 0..8'
Обновление: первое решение состоит из 30 нажатий клавиш. Удаление первых 0 дает 29. Можно сохранить еще один пробел, поэтому мое окончательное решение - 28 ходов:
perl -E'say.37**$_ for 0..8'