perl> @big = qw(a b c d e f g h i);;
perl> @small = qw(f c d g);;
perl> undef @found{ @small };;

perl> @wanted = ( @small, grep{ !exists $found{ $_ } } @big );;

perl> print @wanted;;
f c d g a b e h i