#!/usr/bin/perl
use strict;

 
my @arcb= (450,625,720,645); 
my @arca=(625,645);



foreach my $a (@arca){
for(my $i=0;$i<scalar(@arcb);$i++){
delete $arcb[$i] if($a==$arcb[$i]);
	}
}

print "@arcb";