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

@arcb = do {
  my %exclude;
  @exclude{@arca} = ();
  grep { ! exists $exclude{$_} } @arcb;
};

print "@arcb\n";