in reply to something seems to be missing ...

Girlfriend scope:
#!/usr/bin/perl my $girlfriend == our $girlfriend and break;
XD