#!/usr/bin/perl
print "enter first name \n"; $first = <STDIN>;
print "ënter last name \n"; $last = <STDIN>;
#transfer scalars into array
@array = ($first, $last);
IyEvdXNyL2Jpbi9wZXJsCnByaW50ICJlbnRlciBmaXJzdCBuYW1lIFxuIjsKJGZpcnN0ID0gPFNURElOPjsKY2hvbXAgJGZpcnN0OwpwcmludCAiw6tudGVyIGxhc3QgbmFtZSBcbiI7CiRsYXN0ID0gPFNURElOPjsKY2hvbXAgJGxhc3Q7CiN0cmFuc2ZlciBzY2FsYXJzIGludG8gYXJyYXkgCkBhcnJheSA9ICgkZmlyc3QsICRsYXN0KTsKcHJpbnQgIkBhcnJheSBcbiI7Cg==