Perl script to display strings from file1 that are not present in file2

Question

I have 2 files with names file1 and file2

file1

100010

ARP1000

100020

AMN1000

file2

ARP1000