#!/usr/bin/perl
# your code goes here
my @array1 = ( 1, 2, 3, 4, 5, 6, 7, 8, 9 ) ;
my @array2 = ( 3, 5, 7, 11, 13, 15 ) ;
my %tmp ;
# Store all entries of array2 as hashkeys (values are undef) using a hashslice
# delete all entries of array1 from hash using another hashslice
printf "In Array1 but not in Array2 : %s\n" , join( ',' , keys %tmp ) ;
IyEvdXNyL2Jpbi9wZXJsCiMgeW91ciBjb2RlIGdvZXMgaGVyZQpteSBAYXJyYXkxID0gKCAxLCAyLCAzLCA0LCA1LCA2LCA3LCA4LCA5ICkgOyAKbXkgQGFycmF5MiA9ICggMywgNSwgNywgMTEsIDEzLCAxNSApIDsKbXkgJXRtcCA7CgojIFN0b3JlIGFsbCBlbnRyaWVzIG9mIGFycmF5MiBhcyBoYXNoa2V5cyAodmFsdWVzIGFyZSB1bmRlZikgdXNpbmcgYSBoYXNoc2xpY2UKQHRtcHtAYXJyYXkxfSA9IHVuZGVmIDsgCgojIGRlbGV0ZSBhbGwgZW50cmllcyBvZiBhcnJheTEgZnJvbSBoYXNoIHVzaW5nIGFub3RoZXIgaGFzaHNsaWNlCmRlbGV0ZSBAdG1we0BhcnJheTJ9IDsKcHJpbnRmICJJbiBBcnJheTEgYnV0IG5vdCBpbiBBcnJheTIgOiAlc1xuIiAsIGpvaW4oICcsJyAsIGtleXMgJXRtcCApIDs=