use v6;
use Term::Form;

my $line = readline( 'Prompt: ', { default => 'abc' } );

my @aoa = (
     # key      value-> kann mit Hilfe von "fillform" eingetragen werden 
    [ 'name'           ],
    [ 'year'           ],
    [ 'color', 'green' ],
    [ 'city'           ]
);
my @filled_form = fillform( @aoa, { auto_up => 0 } );