#!/usr/bin/perl -w use diagnostics; @eingabe = ; print reverse (scalar reverse ( @eingabe ) );