Friendship program made in perl