Enigma Machine phone

# my little game :)

use Android;
use Crypt::Enigma;

my $enigma=Crypt::Enigma->new();
my $droid=Android->new();

my $position=$droid->getLastKnowLocation;
my $longitude=$droid->{result}{longitude};
my $latitude=$droid->{result}{longitude};

$enigma->setup(
    $latitude,
    $longitude,
    reverse $longitude
);

my $plainText=$droid->getInput('Giochiamo a Guerra Termonucleare Globale? O preferisci una partita a scacchi?');

foreach my $character (split (//,$plainText)) {
    $encryptedText.=$enigma->input($character)
}
$droid->makeToast($encryptedText);